home *** CD-ROM | disk | FTP | other *** search
- option TITLE, "Extract strings from binary file"
-
- LOCAL create_form
- = set combo items
- DEF CBITEMS <<
- Ansi
- Dos 8 Bit
- Ascii 7 Bit
- Macintosh
- EBCDIC
- Unicode Little Endian
- Unicode Big Endian
- Custom character set
- Use character encoding of the editor file
- >>
-
- GuiCreate('FORM', 'dlgExtract', 'Left', 413, 'Top', 412, 'BorderStyle', GUI_BORDER_DIALOG, 'Caption', 'Extract strings from binary file', 'ClientHeight', 248, 'ClientWidth', 389, 'Position', GUI_FORMPOS_SCREENCENTER)
-
- GuiCreate('BUTTON', 'dlgExtract.btnDo', 'Left', 304, 'Top', 12,'Width', 75, 'Height', 45, 'Caption', 'Start','Default', True, 'ModalResult', IDOK, 'OnClick', 'CHECK_SETTINGS')
-
- GuiCreate('BUTTON', 'dlgExtract.btnClose', 'Left', 304, 'Top', 68,'Width', 75, 'Height',25,'Caption', 'Close','Cancel', True, 'ModalResult', IDCANCEL)
-
- GuiCreate('GROUPBOX', 'dlgExtract.Group1', 'Left', 8, 'Top', 8,'Width', 285, 'Height', 233,'Caption', 'Options')
-
- GuiCreate('STATIC', 'dlgExtract.Group1.s1', 'Left', 12, 'Top', 20,'Caption', 'Character encoding of the strings to extract:')
-
- GuiCreate('STATIC', 'dlgExtract.Group1.s2', 'Left', 12, 'Top', 72,'Caption', 'Minimum character length of strings to be listed:')
-
- GuiCreate('STATIC', 'dlgExtract.Group1.s3', 'Left', 12, 'Top', 100,'Caption', 'Accepted characters:')
-
- GuiCreate('STATIC', 'dlgExtract.Group1.s4', 'Left', 12, 'Top', 192,'Caption', 'Strings/page:')
-
- GuiCreate('STATIC', 'dlgExtract.Group1.s5', 'Left', 12, 'Top', 150,'Caption', 'Words must start with one of those characters:')
-
- GuiCreate('COMBOBOX', 'dlgExtract.Group1.cbEncoding', 'Left', 12, 'Top', 36, 'Width', 261, 'Style', GUI_COMBOSTYLE_DROPDOWNLIST, 'Items', CBITEMS)
-
- GuiCreate('EDIT', 'dlgExtract.Group1.edMinLen', 'Left', 244, 'Top', 70, 'Width', 29, 'Text', Text(minlen))
-
- GuiCreate('EDIT', 'dlgExtract.Group1.edChars', 'Left', 12, 'Top', 120, 'Width', 261, 'Text', Text(charstouse))
-
- GuiCreate('EDIT', 'dlgExtract.Group1.edStart', 'Left', 12, 'Top', 165, 'Width', 261, 'Text', Text(charstostart))
-
- GuiCreate('EDIT', 'dlgExtract.Group1.edLimit', 'Left', 82, 'Top', 190, 'Width', 29, 'Text', Text(limit))
-
- GuiCreate('BUTTON', 'dlgExtract.Group1.btnCharsInfo', 'Left', 120, 'Top', 94, 'Width', 25, 'Height', 21, 'Caption', '?', 'OnClick', 'showcharsinfo')
-
- GuiCreate('CHECKBOX', 'dlgExtract.Group1.cbCurPos', 'Left', 140, 'Top', 192, 'Width', 145, 'Caption', 'Start at current position')
-
- GuiCreate('CHECKBOX', 'dlgExtract.Group1.cbAlphaSort', 'Left', 140, 'Top', 212, 'Width', 145, 'Caption', 'Alphanumeric sorting', 'Checked', alphasort)
- ENDLOCAL
-
-
- DEF __INVCHAR__ 'Invalid character: '
- DEF __INVNUM__ 'Not a numeric value: '
-
- DEF __INFOAC__ <<
- Only characters listed here are accepted as "string characters".
-
- The question mark is used to escape some special characters:
-
- ?QM = question mark, ?HT = horizontal tab,
- ?VT = vertical tab, ?LF = line feed,
- ?FF = form feed, ?CR = carriage return,
- ?SP = space, ?X<hex> = four digit hex value of a character to be used
- >>
-
- DEF __INFOACT__ 'Info about accepted characters'
-
- @@__lng_end
-